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1 $3 $8 
14-Sep-1984 11:52:44 NALYZ.SRCJEXE INPUT .B32;1 1) 


0001 Ztitle ‘EXEINPUT = Handle Image Files & Libraries’ 

44 module exeinput 

000 ident='Vv04-000") = begin 

O008 | 

BO08 1 i wpeeeeeeeeerereeeneeeereteeeeeeeeeeeeerereeeeereeeeeeeeeeeeeeeeteneeeeeereeee 

0007 1 !* * 

0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

id : ” ALL RIGHTS RESERVED. * 
. ® 

borg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

0015 1 !* COPIES THERECF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

Bog 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 

4 : :* TRANSFERRED. * 
‘@ * 

$019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT »* 

o¢) : :* CORPORATION. * 
Han a 

9098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

B05 : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ® 

0026 1 !* * 

0027 1 SRE R RARER ARERR AAA AEAAAAE ARATE AAA AERA ARERR ERARARAKEEHE 

0028 1! 

0029 1 

0030 1 !++ 

ot : Facility: VAX/VMS Analyze Facility, Handle Image Files 

0085 1 | Abstract: This module is responsible for handling file specs from 

Oo ; the command Line, and reading data from image files. 

0036 1! 

0037 1 ! Environment: 

0038 1! 2 

44 ; Author: Paul C. Anagnostopoulos, Creation Date: 31 March 1981 

0041 i Modified By: 

0043 1! v03-007 ROP0009 Robert Posniak 15-JUN-1984 

0044 1! Clear image buffer valid flag when analyzing 

9k : more than one image. 

0047 1! v03-006 BLS0286 Benn Schreiber 20-MAR-1984 

se } Correct 005. 

0050 1! v03-005 LJA0112 Laurie J. Anderson 21-Feb-1984 

0051 1! Add new related file parsing arguments to LIBSFIND_FILE 

Boe : } to make search Lists behave properly. 

0054 1! v03-004 LJA0105 Laurie J. Anderson _ 25-Jan-1984 

0055 1! Changes due because now using the new image activator 

0056 1! decode routines. Now, open fhe image file through RMS 

0057 1! with the UFO option bit set, and do not bother to connect 


rc . = 
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3 eB 28 1: stream. Will be using Q10's, because the decode routines 
| 3 Fe 4 : : do, too. Add routines to read the image header and isd's. 
is 61 0061 1 i v03-003 PCA1011 Paul C. Anagnostopoulos 1-Apr-1983 
is 6 4944 1 } Change the message prefix to ANLOBJ$_ to ensure that 
3 6 82 1: message symbols are unique across alt ANALYZEs. This 
= Be ope i } is necessitated by the new merged message files. 

3 66 066 1 | v03-002 PCA0020 Paul Anagnostopoulos 24-Mar-1982 
3 34 006? : Signal errors using the gorrect STV value. 

: 69 069 1! v03=001 PCA0014 Paul Anagnostopoulos 22-Mar-1982 

; 070 1 Use the resultant spec rather than the wildcard spec 

: 4 Bar 4 : & when complaining about a file to be analyzed. 


_ ——_-——_ re a —— 


oooo 


ee ee ee ee re ee ed ee ed ee ed ed ee ed ed ed ed ed 


ee ed td ot ot ot ot I OOOOO 
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0074 Asbttl "Module Declarations’ 
75 i Libraries and Requires: 
007 ! 

007 


library ‘starlet’; 
require ‘objexereq'; 


! 
Table of Contents: 


oO 


PUPP PVPS IIIT B™ BS BS BS ES BE EE AWA NWN NIIP PNIPINININIDY 2 2 
DOO NOONE WR 0 OONAUE WN 9 ODNOAUE WN (OO ONAUS WN (COONAN Oo 


forward routine : 
anlSopen_next_image_file, 
anl$get_Tmage_block, 
anl$map_fixup_section, 
anl$get_image_header, 
anl$get_isd ; 


t 
External References: 


external routine : 
anl$image_positionals, 
qi coget ua ue: addressing_mode(general), 
img$decode_ihd: addressing_mode(general) 
imasget next_isd: addressing mode (general), 
Lib$find_file: addressing_mode(general), 
Lib$free_vm: addressing_mode(general), 
Ltosget va: addressing_mode(general), 
str$trim: addressing_mode(general); 


Own Variables: 


The following data structures are used to access and read blocks from 
the file we are to analyze. 


own 
own described buffer (resultant spec .nam$c_maxrss), . f 
image_ fab: er Th 43 o), : FAB for RMS UFO SOPEN of image file 
image_buffer: block(512,byte], ! contains decoded IHD 
isd_buf: blockt>1¢.byted. i Contains ISD block. 
hdr_blk: block(512,bytel, ! contains block of image header 
blk_buf: block(512,bytel], ' contains block read by get_image_block 
_ ht ee ! Header version : 
vbn: long initial(1), ! VBN of a | found in hdr_blk 
offset, offset to the ISD's returned here 


Wawa lvalval tal ah ab ab sh dh db ab dh dh th h-hh ah eh dh dh ah dd ah ah ak ah ad alae ee ele) 


chan : long initial( 0 ) 


C n ! Channel assigned to the image file 
image_buf_valid : long i 


; ! indicates if the image buffer is valid 


~" 


nitial(0 


a a a a ts ss ss a ss ss a 9 ss ss Ss as bs 2 a 2 2 


felelelelelelelolel oleae eo) a) aia lelolololelololololeolololeloleleololeleleloleleolololololol oa! 


uw 


<= 
en 
— 
z 


Uw 
AEWA =O CONAN E WHO O00 NOU EWN OOOO MEWN-O0ON 


WN & & 
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OOOO NNN NNN NOOO 
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036 } Rsbttl "ANLSOPEN_NEXT_IMAGE_FILE = Right’ 
036 Funct ional Description: ha 
H S routine is called to open the next image fil ° 
beee : It handles multiple file specs and wildcarding. Ag ha ee % 
Rete} i sharable image Libraries. 
oe6? 1! Formal Parameters: 
bees : } opened_spec Address of descriptor of buffer in which to return 
0670 1 i the spec of the file we open. We set the length. | 
571 1 | Implicit Inputs: 
0374 : global data | 
0574 1: Implicit Outputs: 
beoe : global data 
0577 1! Returned Value: 
Bere : } True if there is another image file, false otherwise. 
0580 ; Side Effects: 
0982 1 i-- 
0585 1 
0584 1 
bees $ global routine anl$open_next_image_file(opened_spec) = begin 
0587 2 bind 
£4 § opened_spec_dsc = .opened_spec: descriptor; 
0894 $ _— d bed_buff 
own_described_buffer (wildcard -nam$ . 
3298 2 wildcard_contéxt: long initial(d), on 
$34, § get_new_Spec: long initial(true); 
Ct eer 
stv: long, 
£444 $ status: Tene: 
0599 § ee 
Reng $ First clear flag to invalidate old image header 
0602 2 
369) image_buf_valid = 0; 
0605 ! If the wildcard context is zero (it means this is the fi ) 
0606 2 have we finished with a file spec on the previous Salk. car weak aheel 
eet ; ! the next file spec from the command Line. 
0609 if .get_new_spec then ( | 
0610 wildcard_specClen] = nam$c_maxrss; | 
gett Status = cli$get_value(describe('’file_specs') ,wildcard_spec); 
0318 ! If there are no more specs, we are all done. | 
0615 if not .status then | 
0616 ; return false; | 
| 
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MWW 


Semi cuee spec wildcard spec, wildcard_spec); 


' Call a routine to process t.., positional qualifiers for this spec. 
i We don't know how to do t 


anl$image_positionals(); 


: On the other hand, if the previous call done is true, we may have just 
i finished processing a file. Better deassign channel. 


-chan ee 0 then ( 
status = $dassgn(chan=.chan); 
os  “teseeien anlobj$_ closein, l,resultant_spec,.status); 
chan = 0; 
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vO4 ANLSOPEN_NEXT_IMAGE_FILE = Right 14-Sep-1984 11:52:44 ANALYZ.SRCJEXE INPUT .B32;1 (4) 
01 633 1 We have obtained a wildcard spec from the file parameter. We also have 
o¢ ¢ ! all the positional qualifiers associated with it. 
Be be § ! Now we need to find the next file that matches the current wildcard spec. 
06 0638 resultant spec(len] = nam$c_maxrss; 
07 0639 status = Tib$find_file(wildtard_spec,resultant pec. 
08 0640 wildcard_context,describe(’.ExE'), 
09 0641 O,stv,%ref(2)); 
9 aye str$trim(resultant_spec,resultant_spec,resultant_spec); 
gig 0644 § : If we failed to find a file, then reset the wildcard context and call 
21 0645 : ourselves recursively to process the next file spec. Also give an 
214 0646 2! error, unless we just plain ran out of files. 
215 0647 ¢ 
216 0648 if not .status then ( 
217 0649 3 «Status nequ rms$_nmf then 
218 0650 3 signal (anlobj$_openin,1,resultant_spec,.stv); 
219 0651 ; get new_spec = true; 
220 065 return anlSopen_next_image_file(opened_spec_dsc); 
221 0653 2); 
$s¢ 0654 2 ’ : 
$$i Reee $ ! Hey, we got a file spec. Open the file and connect the RAB. 
225 0657 2 get_new_spec = false; 
226 0658 2 
227 0659 2 image_fab(fab$b_fns] = .resultant_spec[len]; 
228 0660 2 image_fablfab$l_fna] = .resultant_spec(ptrJ; 
229 0661 2 status = Sopen(Fab=image_fab); 
$34 bees § check (.status, anlobj$_openin,1,resultant_spec,.status,.image_fab[fab$l_stv]); 
232 0664 2! If the open failed, then we need to recurse to try the next file. 
233 0665 2 
234 0666 2 if not .status then 
$32 set 4 § return anl$open_next_image_file(opened_spec_dsc); 
$30 +4 h4 § ! Finally, we have to return the resultant file spec to the caller. 
239 0671 2 opened_spec_dsc{len] = .resultant_specllen); 
scf pers § ch$move(.resultant_spec(len],.resultant_spec(ptr], .opened_spec_dsc(ptrJ); 
242 0674 2 chan = .image_fab[fab$l_stv); 
243 0675 2 
244 0676 2 return true; 
245 0677 2 
246 0678 1 end; 
-TITLE EXEINPUT EXEINPUT = Handle Image Files & Librar 
: ies 
-IDENT \V04-000\ 
-PSECT S$PLIT$,NOWRT ,NOEXE ,2 
73 63 65 70 73 SF 65 6C 69 66 00000 P.AAB: .ASCII \file_specs\ ‘ 
OA BLKB 2 


0000000A O000C P.AAA: <LONG 10 : 
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-ADDRESS P,AAB 
Be eASCIIT \.EXEN 


cL 4 
“ADDRESS P.AAD 

<PSECT SOWNS,NOEXE,2 
00000 RESULTANT_SPEC: me 

“ADDRESS RESULTANT SPEC +8 
“BLKB. 25 


-BLKB 
IMAGE _F AB: 
-BYTE 


WUANMNMMNNNIN 3] - SOOO OOOO 
SOOONASUVLO*MOOLOOFO @Oxrnoer 
= 
oO 
P*] 
i] 


“LONG 
IMAGE _BUF FER: 
BLKB 


-BL 
1SD_BUF : .BLKB 
HOR BLK: .BLKB 


4 


@ 
~< 
“ 
m 
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CHAN: ~LONG 
IMAGE _BUF VALID: 
. CONG 
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14-Sep-1984 11:52:44 ANALYZ.SRCJEXEINPUT.B32;1 
OOOOOOFF 0096C WILDCARD SPEC: - 
00000000° 90970 “ADDRESS WILDCARD. SPEC +8 
974 BLKB. 25 


00A73 -BLKB_ 1 

00000000 00A74 WILDCARD CONTEXT: 
00000001 00A78 GET_NEW_SPEC: 
. LONG 


~EXTRN ANLOBJ$_ OK ANLOBJ$_ ANYTHING 
“DATATYPE 


RNONE 
ett ‘one EXEFIXA 


HDRCHANDEF 
HDRDA es cece 


>< DK DK DK OK DK DK DK DK DK DK OK DK OK DK DK DK OK DK DK DK DK DK DK DK DOK OK DOK DK DK DK DK DK OK OK OK OK OK OK OK OK OK 
PEPTTSTET TTT TT »@ 


“EXTRN ANC OBIS RDST 

“EXTRN ANLOBUS~ HDRF ILE ID 
“EXTRN ANLOBJ$~ HORE IXED 
“EXTRN ANLOBJ$~ LAGS 
“EXTRN ANLOBJ$~ HDRGBL IDENT 
“EXTRN ANLOBUS— RGST 

EXTRN ANLOBJ$~EXEHDRIDENT 
“EXTRN ANLOBJ$~EXEHDRIMAGE ID 
EXTRN ANLOBJ$~EXEHDRISD 
“EXTRN ANLOBJS~EXEHDRI SDBASE_ 
TEXTRN ANLOBJ$~EXEHDRI SDCOUN 
TEXTRN ANLOBJ$~EXEHDRI SDF nth 
TEXTRN ANLOBJ$~EXEHDRI SDGBLNAM 
EXTRN ANLOBJ$~EXEHDRI SDNUM 
TEXTRN ANLOBJ$~EXEHDRI SDPF CDEF 
“EXTRN ANLOBJ$~EXEHDRI SDPFCS1Z 
TEXTRN ANLOBJ$~EXEHDRISDTYPE 
“EXTRN ANLOBJ$~EXEHDRISDVBN 
TEXTRN ANLOBJ$~EXEHDRL INK ID 
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ANLOBJ$ sort 
rotate EXEHDRNAME 


ANLOB H 
A HDRPATCHDATE 
HDRPRIV 


E 

~EXEHOR 

EHDRROPATCH 
EHDRRWPATCH 
“EXENDRSYSVER 
E 
EH 
E 
E 


HDRSYSVER 
HDRTEXTVBN 
DRTIME 
HDRTYPEEXE 
HDRTYPELIM 


> 
2 
S 29 
@ ow 
eee 
wee 
MMMMMMMmMMmMmMmMmmmmmncnen 


> 
22 
2° 
@@ 
—_—= 


>>> 
222 
eee 
oooo 
Ooow 
cccn 


ERACT 
ANLOBJS$_MASK, ANLOBJ$_OBJCPRREC 
ANLOBJ$_0BJ DBGRE 


ANLOBJ$_ -tokeeo OBJEOMFLAGS 


ANLOBJ$_0B 
ANLOBJ$_OBJEOMSEVABT 


uwmovvoVv7797 


ANLOBJ$_OBJGSDPSC 
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ANLOBJ$_OBJGSDPSCALIGN 
ANLOBJ$. -OBJGSDPSCALLOC 
ANLOBJ$_OBJGSDPSCBASE 
ANLOBJ$_OBJGSDPSCFLAGS 

ANLOBJ$_OBJGSDR ct 


MTCUIC 
AN OBIS~ Se othe yy 
ANLOBJ$_OBJMTCWH 
ANLOBJ$— OBJPROARGCOUNT 
ANLOBJ$_ “Seiperthe 


ANLOBJ$_OBJPS 
ANLOBJ$~OBJSRC 
ANLOBJ$~OBJSTATHEADING1 


ANLOBJ$~OBJSTATTOTAL 
ANLOBJ$ OBJ SYMBOL 
NLOBJ$— “OB SYMF LAGS 
ANLOBIS~ OBJ TIRARGINDEX 
ANLOBJ$_OBJTIRC 
ANLOBJ$_OBJTIRCMDSTK 
AN.0B JS OBJTBTREC 


0BJ$ ~OBJUVALUE 
ANLOBJ$~PROTECTION 
ANL OBJ$~ SEVERITY 

NLOBJ$-~TEXT, ANLOBJ$_TEXTHDR 
ANC OB NOS CHMOD 


ANLOBJ$~ pap Senist 


Bibles EXEINPUT = Handle Image Files oe Libraries 


ANLSOPEN_NEXT_IMAGE_FILE - 


-EXTRN 
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ANLOBJS$ esreen” 
ANLOBJ$_BAD 


MLEN 
= BS_ EXEBADE [HUPEND 


ANLOBJ$—EXEBADF IXUPISD 
ANLOBJ J$“EXEBADE IXUPVBN 
ANL OBJ$_EXEBADI SDS! 
ANLOBJ$~EXEBA Dispi ree 
ANL O88 EKEBAD MATCH 
ANLOBJ$EXEBA DPATCHLEN 
ANLOBJ$~EXEBADOBJ 
ANLOBJ$ =EXEBADTYPE 
ANLOBJ$~EXEBADXFERO 
ANLOBJ$— EXEHDRI SDL ONG 
ANLOBJ$~EXEHDRLONG 
ANLOBJ$~ “EXE ISDLENDZRO 
ANLOBJ$_EXE I SDLENGBL 
ANLOBJ$~EXE I SDLENPRIV 
ANLOBJ$~EXENOTNATIVE 
ANLOBJ$~EXTRABYTES 
ANLOBJ$SFIELDFIT 
ANLOBIS FLAGER 


ROR 
ANLOBJ$_NOTOK, ee OBJBADIDCMATCH 
ANLOBJ$_OBJBADN 
ANLOBJ$_0BJ BADPOP 
ANLOBJ$_OBJBADPUSH 


ANLOBJ SDBADAL1G 
ANLOBJ$_ O8¢SDBADSUBTYP 
ANLOBJ$_OBJHDRRES 

ANLOBJ$ -OBJMHDBADRECSIZ 


ANALYZE CILITY 
ANL IMAGE POSITIONA iLS 

CLI$G 1 VAL LUE IMGSDECODE. IHD 
THGSCET™ S 

LIBSF SF IND. FILE LIBSFREE_VM 
LIBSGET 0M, STRSTRIM 
SYSSDASSGN, SYSSOPEN 


SCODES ,NOWRT ,2 
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v06= ANLSOPEN_NEXT. IMAGE. FILE = Right 12-08-98 1:52:44 LANALYZ SRE ERE IWEUY .03951 . af 
| 01FC 00000 ENTRY ANL SOPEN_NEXT_IMAGE FILE, Save R2,R3,R4,R5,-; 0585 
$8 000000006 99 9E 0000 MOVAB STRSTRIM, RB : 
| 2 000000006 00 9€ 0000 MOVAB LIBSSIGNAL, R7 : 
| 6 0000" CF H: 90019 MOV RESULTANT_SPEC, R6 : 
3E 08 C2 0001 SUBL2 # : 
| 5 04 AC 00 00018 MOVL OPENED _SPEC, R2 ; 0588 
0968 C6 D4 9001¢ CLRL §- IMAGE_BUF VALID + 0603 
| 32 OA78 C6 €E9 0002 BLBC GET NEW_SPEC, 2$ + 0609 
096c = 6 FF 8F 9B 00025 MOVZBW #255, WILDCARD_SPEC + 0610 
096C C6 OF 900 B PUSHAB WILDCARD_SPEC > 0611 
0000" CF 9F O00cF PUSHAB P.AAA : 
000000006 00 02 FB 00033 CALLS #2, CLISGET_VALUE : 
| 53 29 DO 0003A MOVL RO, STATUS : 
03 7 ES 0005p BLBS STATUS, 1$ + 0615 
00E1 31 0004 BRW $ : 
096C C6 9F 00043 1S: PUSHAB WILDCARD_SPEC + 0617 
| 096C C6 9F 00047 PUSHAB WILDCARD~SPEC : 
096C C6 9F 00048 PUSHAB WILDCARD~SPEC : 
68 03 FB O004F CALLS », STRSTRIM : 
00006 CF 00 FB 00052 CALLS #0, ANLSIMAGE_POSITIONALS + 0622 
50 0964 C6 DO 00057 2s: MOVL CHAN, RO + 0628 
22 13 0005C BEQL 4$ : 
50 DD 0005 PUSHL RO > 0629 
000000006 00 01 FB 00060 CALLS #1, SYSSDASSGN ; 
53 50 DO 00067 MOVL RO. STATUS : 
OF 23 E8 OO06A BLBS STATUS, 3$ + 0630 
53 DD 0006D PUSHL STATUS : 
56 DD 0006F PUSHL ; 
01 DD 00071 PUSHL #1 : 
00811052 8F DD 00073 PUSHL  #11604050 : 
67 04 FB 00079 CALLS #4, LIBSSIGNAL ; 
0964 C6 D4 0007C 3S: LRL HA + 0631 
rx FF 8F 9B 00080 4$: MOVZBW #255, RESULTANT_SPEC : 0638 
6€ 02 DO 00084 OVL #2, (SP) > 0641 
5E DD 00087 PUSHL SP : 
08 AE 9F 00089 PUSHAB STV > 0639 
7E D4 0008C CLRL = =( SP) ; 
0000" CF 9F 0008 PUSHAB P.AAC + 0640 
0A74 C6 9F 0009 PUSHAB WILDCARD_CONTEXT > 0639 
56 DD 900 PUSHL R ; 
096C C6 9F 00098 PUSHAB WILDCARD SPEC 3 
000000006 00 07 FB 0009 CALLS #7, LIBSFIND_FILE : 
53 50 DO OO0A MOVL RO. STATUS F 
56 DD 000A6 PUSHL oR + 0642 
56 DD OO0A8 PUSHL R6 é 
56 DD OOOAA PUSHL 6 ; 
68 03 FB OOOAC CALLS #3, STRSTRIM ; 
20 53 E8 OOOAF BLBS TATUS, 6$ > 0648 
000182CA = &F 53 D1 00082 CMPL STATUS. #99018 + 0649 
10 13 00089 Beal «=s«éSS ; 
| 04 AE DD 00088 PUSHL STV ; 0650 
56 DD OOOBE PUSHL  R6 : 
01 oD 900¢0 PUSHL #1 : 
00B1109A 8F DD 000C2 PUSHL #11604122 : 
67 04 FB 000C8 CALLS #4, LIBSSIGNAL ; 
| 


Bt 


EXE INPUT EXEINPUT = Handle Image Files oe Libraries 13 7-700-128% $3: $8: 719 AX-11 Bliss-32 TT a 
V0 ANLSOPEN_NEXT_IMAGE_FILE = 14-Sep-1984 744 ANALYZ.SRCJEXEINPUT.B32;1 
0A78 C6 1 99 O0CB 5$: MOVL #1, GET_NEW_SPEC 
6 1 000 BRB 7$° 
OA78 86 Be poo 6$: CLRL GET PEC 

ois C6 66 90 00006 MOVB Beco eAnt SPEC, IMAGE _FAB+52 
0134 C6 04 A6 00 000DB L RESULTANT_ _SPEC+4, IMAGE _FAB+44 
| 0108 C6 9F O00E1 PUSHAB IMAGE FAB” 
000000006 99 91 FB QO0ES CALLS #1, § svssceen 
9 dO BODE E MOVL RO, STATUS 
| 1E 5 E8 QOOEF S erATUS. 
| 0114 C6 DD O00F2 PUSHL IMAGE _FAB+12 
53 DD O00F6 PUSHL STATUS 
26 DD peor’ PUSHL  R6 
01 DD QOOFA PUSHL 
00B1109A 8F DD OOOFC PUSHL # 412 
67 0S FB 00102 CALLS #5, LIBSSIGNAL 
08 53 €8 00105 BLBS US, 
52 DD 00108 7$ PUSHL 
FEF1 CF 01 FB OO10A CALLS #1, ANLSOPEN_NEXT_IMAGE_FILE 
04 0010F RET 
66 B80 00110 8$: MOVW RESULTANT_SPEC, (R2) 
04 B2 04 B6 66 28 00113 MOovC3 RESULTANT SPEC, @RESULTANT _SPEC+4, a4(R2) 
0964 C6 0114 C6 DO 00119 MOVL IMAGE _FAB12, CHA N 
50 01 DO 00120 MOVL 1, RO 
04 00123 RET 
50 D4 00124 9$: CLRL RO 
04 00126 RET 


; Routine Size: 295 bytes, Routine Base: S$CODES + 0000 


Be Se Se Se Se Ge Se Se Se Se Se Se Fe Se Be Se Ge Se Se Se Se Se Se Be Be Se 


Be Oe Oe Be we Se Be Se Be Se Se Be Be Se Se Se SS) Se Se Se Se Se Ge Se Se Se Ge Se Ss Se Ge Ss Se Se Se Se Se Ge Ss Se Se Ss Oe Se Ss Oe os Se HSH Se os Se Se Sees 


15 
EXE INPUT EXEINPUT = Handle Image Files & Libraries 15-52 1984 23:48:19 Ax-11 iss- 4.0-74 
04 ANCSCET IMAGE BLOCK ~ Get Block from Image 14-Sep-19 4 j oo ihe LANALYZ~SRe EXEINPUY 63 31 


re o673 ! rsbttl *ANLSGET_IMAGE_BLOCK = Get Block from Image’ 
50 9681 1! Functional Description: 
2] 6 ¢ 1 his routine is called to read a block from the current image 
28 set : } file, which is assumed to be open. 
54 0685 1 ' Formal Parameters: 
55 0686 1! vbn Virtual block number of desired block. 
56 0687 1 buffer Address of buffer pointer to fill in with the 
$20 oe : address of our buffer. 
59 90 1 | Implicit Inputs: 
366 Be3) : } global data 
26 0693 1! Implicit Outputs: 
$7 2-04 : ; global data 
265 0696 1! Returned Value: 
4 3.44 : $Q10W status 
368 0699 Side Effects: 
270 0701 1 i-- 
271 0702 1 
272 0703 1 
$7 4 § global routine anl$get_image_block(vbn,buffer) = begin 
gfe 0706 2 bind 
$78 34:44 § buffer_ptr = .buffer: ref block, byte); 
278 0709 2 local 
279 0710 2 status: long, 
$00 {4h § iosb : vector(£# 4, word ) ; 
282 orig 2 ; 
ser Bete § ' Read in the desired block to the static buffer. 
AH 4 One § status = $qiow( ; , 
287 P 0718 2 cham @ ‘chan, 
288 P0719 2 func = io$_readvblk, ! Read a virtual block 
289 P 0720 § iosb = iosb, ' 1/0 Status block 
290 P 0721 pl = blk_buf, ' Buffer to read in to 
$3) P $756 § p2 = 512, ' number of bytes to read 
$08 e Orsi .° = .vbn ' Virtual block number to read 
294 0725 : 
344 6768 4 not .status 
en 
344 8,58 return (.status); 
ie O780 ! Point the caller's pointer at our buffer. Then return the $Q10W status 
01 073 buffer_ptr = blk_buf; 
02 0738 retura’t. teebl OT; 
04 Ore end; 


| 15 
EXE INPUT EXEINPUT = Handle Image Files & Libraries bese -19 3:48:19 AX-11 Bliss-32 V4.0-74 Page 15 
¥oe-000 ANCSGE IMAGE BLOCK ~ Set Biock from Image 122805-1 984 $7:83;44 PANALYZ SRe EXE INPUT .B32;1 . (5) 
.EXTRN SYS$Q10W 
0009 00000 -ENTRY ANLSGET_IMAGE_BLOCK, Save nothing 3 0704 
SE 8 : 09008 L2 #8, SP : 
— 7C 0000 CLRO. 2 = ( §P) + 0724 
7E D4 00007 CLRL 3s = (SP) : 
06 Ac bp 0009 PUSHL VB : 
7E 0200 8F 3¢C 0000C MOVZWL #512, =(SP) : 
0000° cr 9F 00011 PUSHAB BLK 8 : 
— 7C 00015 LRQ = : 
20 AE 9F 00017 PUSHAB 10SB : 
37 DD OOOIA PUSHL #49 : 
0000" CF DD 0001C PUSHL CHAN : 
07 DD 00020 PUSHL 4&7 : 
000000006 00 OC FB 90022 CALLS #12, SYS$Q10W ; 
09 50 €9 0002 BLBC — STATUS, + 0726 
08 Bc 0000" CF SE 0002C MOVAB BLK _BUF, @BUFFER t 0732 
50 6E 3C 00032 MOVZWL 10S, RO + 0733 
04 00035 1$: RET > 0735 


; Routine Size: 54 bytes, Routine Base: S$CODE$ + 0127 


ENS MAU o PE ORR Do OR LEY Rede PRS OP a ee Re A LO 


oo 


<m 
Em 


sees & 


SONOUE NW“ SODNAME WOOD 


| 
} 


z 
e 


MOPMINPININININD 2 2 2 2 SS SS OS 


'NNINANNNWNAAANANN NANA 


WANN AAANANAW 
OOP W OOO NOAUE WN —ODOONOUEWH—O 


LA.AI.ANWA AAI AIA AIAN 
PPP AAAAAII 


moO OOn~ 


a 


vwvvUvTUVUU 
CGDOSOCOSOOSOCOSOCOSCOCOOSSCOOCOSOOSOSOOOSSOOCOSOSCOOSOOQCOOCOOCOOOCOOOOOOOOOOOOOO 


Batons 


ANN 
oa 
WIAA NINI ANION WIA WINING PONONIPUPOPONNPUNND 2 2 2 es 


ANN 
AAKO 


+©00000000000000 0000 
= DWNOUEWR OOO 


moo 
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FIXUP_SECTION = Map Fixup Section into 14-Sep-1984 11:52:44 ANALYZ.SRCJEXEINPUT.832;1 


Bsbttl *ANLSMAP_FIXUP_SECTION = Map Fixup Section into Memory’ 


! Functional Description: 

This routine is called to map a shareable image's fixup section 
into memory so we can analyze it. It is also called to free up 
the mapping. We read the section blocks, as opposed to actually 
mapping the section, so that we can analyze remote images. 


Formal Parameters: 


fixup_size Number of blocks in fixup section. 

fixup_vbn Starting VBN of fixup section. 
Implicit a 

global data 


Implicit Outputs: 
global data 


Returned Value: 
we ap the address of the mapped memory, or zero if we couldn't 
map it. 


Side Effects: 


global routine anl$map_fixup_section(fixup_size,fixup_vbn) = begin 


own 
saved_size: Long. 
saved_address: long; 


local 
status: long, 
iosb : vector( 4, word ] ; 


builtin 
nul lparameter; 
! If we are called with both parameters, then we must map the fixup 
! section into main memory and return its address. 
if not nullparameter(1) and not nullparameter(2) then ( 
saved_size = .fixup_size * 512 


status = Lib$get_vmTsaved_size.saved_address); 
check (.status, .status); 


status = $qiow 
efn = 7, 
chan = .chan, 3 
func = io$_readvblk, ! Read a virtual block 
iosb = iosb, ! 1/0 Status block 
pl = .saved_address, Buffer to read in to 
' 


number of bytes to read 


Pp : -Saved_size, J 
= Virtual block number to read 


-fixup_vbn 


EXE INPUT 
v04-000 


63 


ANNO 
wr 


Sans 
Wr —OOOnous 


WWANANNANww 


Www 


EXEINPUT = Handle 
ANLSMAP_F IXUP_SECT 


0793 


=MNWNNNI NNW WW BS BPP EPI 


Image 
10M one 


); 


iles & Libraries 
An Fixup Section into 
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if not .iosblO] or .iosb{1] nequ .saved_size then ( 


! Oops, we couldn't read it in correctly. 


anl$map_fixup_section(); 
return 0; 


) else 


return .saved_address; 


: We are to free up the mapped memory. 


Status = 


54 000000006 
53 0000° 


5E 


02 


046 AC 


000000006 00 


52 
05 


64 


Lib$Sfree_vm(saved -Size,saved_address); 
check (.status, .Status); 
return (ss$ normal); 


OOA7C SAVED_SIZE: 
O0A80 SAVED_ADDRESS: 


ao 
o 
mn 
oO 


MM MINION OAODOOOMMOoO™nN 
oOnMOMO "SO ONO OOo - OOFwOO 
FOWDT DODDS MOWIT WUIWINm 
OOoOQoooooooooooooooo 


SM NOMMMOWN PP OVIP MOO EP AOO 
Sooooooooocoeco 


SooOOooOooCoooooo 


SOWNS ,NOEXE ,2 


4 
4 


SCODES,NOWRT,2 


ANLSMAP FIXUP SECTION, Save R2,R3,R4 
LIBSSIGNAL, R& 
SAVE D,SIZE, R3 


: 0763 


0780 


; Routine Size: 


EXEINPUT = Handle Ima 
ANLSMAP_FIXUP_SECTION 


e F 
° <M 


000000006 99 


63 02 AE 
BE 


000000006 


149 bytes, 


08 
10 
AF 


50 


00 
52 
05 
64 
50 


Routine Base: 


18-36 Sep-19 


iles & Libraries 
ap Fixup Section into 12-228-49 
08 AC DD 00044 
65 0D 00047 
046 =#OA bo 0049 
7E 7C 0004C 
20 AE SF O004E 
31 Dd 00051 
FEES ¢3 ODO Boas 
07 ode 0005 
C F£ 00059 
0 00 00060 
6— £9 00063 
b7 §8 ooee 
006C 
0 FB BOSE 2$ 
9 p4 0007 
04 00074 
04 A3 00 00075 3$ 
04 00079 
06 <A3 9F OOO7A 4$ 
53 DD 0007D 
02 FB 0007F 
50 DO 00086 
52 €8 00089 
52 DD 0008C 
01 FB OO08E 
01 DO 00091 5$ 
04 00094 


$CODES + 015D 


Bs fi 


CHAN 
#7 
#12, SYS$Q10W 
RO, STATUS 
SB, 2% 
+f #16, I0SB+2, SAVED_SIZE 
Hf ANLSMAP_F IXUP_SECTION 


SAVED_ADDRESS, RO 
SAVED_ADDRESS 

#2, LIBSFREE_VM 
RO, STATUS 
STATUS, 5$ 

STATUS 

#1, LIBSSIGNAL 

#1; RO 


19 Ax-11 Bliss-32 V4.0-74 
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37 


Page 
: ( 


18 
6) 


Foe ae at ot ot ot ot nt ot bt ot et at tt tk 


BW AWANANAIANINWAIRIPINPINIPPINNINID 2 2 OO ee es 
—OOONO VE WD OO OONO UE WN) OO ONO UE Wr-O 


L 
1 
1 
1 
1 
1 
1 
5 
2 
5 
3 
3 
3 
3 
3 


SOOOCOCOCOCOCCOCOCCOOCOCVCVOOCOCOSOOSoOOO rm 


oo 
™ 
WR O DONA UE WN OOONO NEW OOONOUS 


SOOoCOCOCoCoCoOooO 
0 0000 09 Go 00 Cd Go 00 0p CO 
PVP TUT 
WONOUSWMH—O”O 


AINIAINIAIAINNIWIAINIWNIAIRD VPOPIPYIDIDININURNYNINININIDNYIRYD 8 9 8 at tt tt SO 
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GET_IMAGE HEADER = get image header from op 14-Sep-1984 11:52:44 A (7) 


NALYZ.SRCJEXEINPUT.B32;1 
Rsbttl "ANLSGET_IMAGE_HEADER = get image header from opened image file’ 


! Functional Description: : ; 

: Get the image header. Call the image decode routine in the image 
activator to return the image header already decoded into an 
understantable form. 


Formal Parameters: 
ihdp Longword address to return buffer address of 
decoded image header. 
alias Longword address to return the Last longword of 
the image header. 


! Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none. 


Side Effects: 


global routine anl$get_image_header(ihdp,alias) = begin 


bind 
buffer_ptr = .ihdp: ref block(,bytel; 


local 
status; 


! Point the caller's pointer to our buffer. If we have already read the 
image header in, it is still in our buffer. 


buffer_ptr = image_buffer; 
if .image_buf_valid 
the 


n 
return( ss$_normal) 
else | 
begin f 3 
status = Soghincete, ee -chan, 
r ° 
image_buffer, 
von, 
offset, 
hdrver, 
alias 


if .status 
then 


image_buf_valid = 1; 
return (.Status); 


3; Routine Size: 


; 445 


exe luy’ - Handle Image Files 
ANL 


967) end; 
087 
087 end; 


04 


Mow 
ofon 


000000006 $9 
0000" CF 


60 bytes, Routine Base: 


0874 1 


16 
es & Libraries 13-Sep-19 
GET_IMAGE HEADER = get image header from op 14-Sep-19 


0000 00000 

0000" CF 3 00002 
0000" CF €9 00008 
01 D0 00000 

04 00010 

08 AC OD 00011 
0000° CF 9F 00014 
0000' CF 9F 00018 
0000" CF 9F O00IC 
0000" CF 9F 00020 
0000° CF 9F 00024 
0000" CF DD 00028 
07 FB 0002C 

50 €9 00033 

01 DO 00036 

04 00038 


SCODES + O1F2 


1$: 


t Hfig8: 


9 poe Bliss-32 v4.0-74 
4 


1 
4 ANALYZ.SRCJEXE INPUT .B32; 1 


ANLSGET_IMAGE_HEADER, Save nothing 
IMAGE _BOFFER, @IHDP 

IMAGE-BUF _VALID, 1$ 

#1, RO 


ALIAS 

HDRVER 

OFFSET 

VBN 

IMAGE_BUFFER 
HDR_BCK 

CHA 

#7, IMGSDECODE_IHD 
STATUS, 

#1, IMAGE_BUF_VALID 


row it 
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ANESGEY ISD - Return the next ISD into buffer 14-Sep-19 4 05:12 LANALYZ SRE EXEINPUT .63 31 oe (B) 


Rsbttl "ANLSGET_ISD = Return the next ISD into buffer’ 


co 
~“ 
uw 


Functional Description: 
Get the image section descriptor. Call the image decode routine 
in the image activator to return the image section descriptor. 


: Formal Parameters: 
is Longword address to return buffer address of 
image section descriptor. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


pele lolol elelolelelelololololo! 
00 00 00 09 00 09 C0 C0 C9 CD CD 00 CD 
00.00 0909 00 Co COCO CD OO SII 
OBDNAUL WOO 


Returned Value: — 
Status from img$get_next_isd - IMGS_ENDOFHDR at EOF 


' Side Effects: 


global routine anl$get_isd(isdp) = begin 


local 
Status; 


bind 
buffer_ptr = .isdp: ref blockl. byte]; 


status = img$get_next_isd( 


0912 vbn, 
offset, 
isd_buf 


buffer_ptr = isd_buf; 
returnt .status); 


oO 
oOo 
Oo 
im 
SS KINPINININININMININININININININIM IAIN IAIN IAI) a ad tt st kk kk a 


leolelelelelejlealelelo) 
oowvowownovovosd 
TR) a oe oe es 
SOON Ww 


end; 


0000 00000 .ENTRY ANLSGET_ISD, Save nothing ; 0899 
9F 00002 1SD_BUF 0908 
9F 00006 PUSHAB OFFSET 

PUSHAB IMAGE BUFFER 
HDR_BCK 


eee ee Oe Oe e 


ooococo 
ooooo 
ooocoeoo 
Coooeoo 
AON 
Ss Be Ie Do en) 

oO 

nm 

i=) 

o 

o 

o 

> 

v 

= 

4) 

=x 

> 

D 


9F 000 
9F 00012 PUSHAB 


r-—- ——_—_—--- - ee _ —— ———— 
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V04=-000 14*$ 


ANLSGET_ISD = Return the next ISD into buffer -Sep-1984 11:52:44 ANALYZ. SRCJEXE INPUT .B32; 1 (8) 
0000" CF DD 00016 PUSHL CHA | ; 0909 
000000006 00 06 FB OOO1A CALLS #6, "IMGSGET NEXT_ISD ; 
04 BC 0000" CF 9E 00021 MOVAB ISD_BUF, a15DP 3 0917 
| 04 00027 RET ; 0920 


; Routine Size: 40 bytes, Routine Base: $CODE$ + 022E 


————— . - - 
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EXE INPUT EXEINPUT = Handle Image Files 8 L *~ aries 18-5e0-1984 $3: 28: 19 AX-11 Bliss-32 v4.0-7 Page $3 
_V04-000 ANLSGET_ISD = Return the next ISD into buffer 14-Sep-1984 244 ANALYZ.SRCJEXE INPUT. 833; ;1 (9) 
> 494 0921 0 end eludom 
| LEXTRN LIBSSIGNAL 

4 PSECT SUMMARY 
- Name Bytes Attributes 
3} SOWNS 2692 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
| 3 SPLITS 3 NOVEC, *NOWRT. »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 598 NOVEC,NOWRT, D, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

$ Library Statistics 

Bre ei pr ks ene ei lk «aan Syebeis sew Pages Processing 

3 File Total ioaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 40 0 581 00:01.0 

H COMMAND QUALIFIERS 

4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXEINPUT/OBJ=OBJ$:EXEINPUT MSRC$:EXEINPUT/UPDATE=(ENHS$:EXE INPUT) 
3; Size: 598 code + 2724 data bytes 

: Run Time: 00:15.5 

; Elapsed Time: 00:41.5 

3 Lines/CPU Min: 3562 

3; Lexemes/CPU-Min: 19725 

3 peer? Used: 177 pages 

3; Compilation Complete 

| 
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